function  answer = ejer2a()

      I = [0.8 1.4];
      e = 0.00001;
      m = 100; %numero maximo de iteraciones permitidas

      fprintf('\nMetodo de la biseccion para la funcion tan x - 2x \n');
      fprintf('Intervalo \n');
      I
      fprintf('Tolerancia de error: %f \n', e);
	      
      [hx, hf] = biseccion(@(x) tan(x) - 2*x ,I,e,m);

      fprintf('\nRESULTADOS \n');

      fprintf('Numero de iteraciones: %d \n', length(hx));

      fprintf('Aproximaciones a la raiz: \n');
      hx
	
      fprintf('Raiz: %f\n', hx(length(hx)));

      

      fprintf('Imagenes de las aproximaciones a la raiz: \n');
      hf
      fprintf('Imagen de la raiz: %f\n',hf(length(hf)));
      
      plot(hx)
  
    
endfunction 

